<%@Page Language="VB"%>
<%@Import Namespace="System.Drawing" %>
<html>
<head>

<script language="JScript">
<!--
function ShowHTMLContent() {
  var strURL = 'http://<% = Request.ServerVariables("SERVER_NAME") %><% = Request.Path %>?<% = Request.QueryString %>';
  var strDisplay = new String;
  var objHTTP = new ActiveXObject("microsoft.XMLHTTP")
  objHTTP.open('GET', strURL, false);
  objHTTP.send();
  var strReply = objHTTP.responseText;
  var intStart = strReply.indexOf('<!' + '--start-->') + 12;
  var intEnd = strReply.indexOf('<!' + '--end-->');
  if ((intStart > 0) && (intEnd > intStart))
    var strDisplay = strReply.substring(intStart, intEnd);
  document.all['outHTML'].innerText = strDisplay + ' ';
}
function SetCheck(strCheckboxName) {
  document.all[strCheckboxName].checked = true;
}
//-->
</script>

<!-- #include file="style.inc" -->
</head>
<body bgcolor="#ffffff" onload="ShowHTMLContent()">
<!--------------------------------------------------------------------------->
<span class="heading">ASP:LinkButton Control</span> &nbsp; &nbsp; &nbsp;
<form runat="server" method="get">
<!--start-->
<ASP:LinkButton id="MyControl" Text="My LinkButton" runat="server" />
<!--end-->

<p />
<div id="outError" runat="server" />
<font face="Courier New" size="2"><div style="background-color:gainsboro; padding-left:10px" id="outHTML">Fetching HTML content...</div></font>


<table border="0">
<tr><td nowrap="nowrap"><input type="checkbox" id="chkAccessKey" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">AccessKey =</td><td nowrap="nowrap"><input type="text" size="1" id="txtAccessKey" runat="server" onkeypress="SetCheck('chkAccessKey')" /></td>
<td nowrap="nowrap">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  &nbsp;</td>
<td nowrap="nowrap"><input type="checkbox" id="chkBackColor" runat="server" /> Set: &nbsp;</td><td align="right" nowrap="nowrap">BackColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtBackColor" runat="server" onkeypress="SetCheck('chkBackColor')" /></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkBorderColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtBorderColor" runat="server" onkeypress="SetCheck('chkBorderColor')" /></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkBorderStyle" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderStyle =</td><td nowrap="nowrap"><select id="selBorderStyle" size="1" runat="server" onchange="SetCheck('chkBorderStyle')">
<option value="4">BorderStyle.Solid</option><option value="3">BorderStyle.Dashed</option><option value="2">BorderStyle.Dotted</option><option value="5">BorderStyle.Double</option>
<option value="6">BorderStyle.Groove</option><option value="8">BorderStyle.Inset</option><option value="1">BorderStyle.None</option><option value="0">BorderStyle.NotSet</option>
<option value="9">BorderStyle.Outset</option><option value="7">BorderStyle.Ridge</option></select></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkBorderWidth" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">BorderWidth =</td><td nowrap="nowrap"><input type="text" size="2" id="txtBorderWidth" runat="server" onkeypress="SetCheck('chkBorderWidth')" />px</td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkEnabled" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Enabled =</td><td nowrap="nowrap"><select id="selEnabled" size="1" runat="server" onchange="SetCheck('chkEnabled')"><option>True</option><option>False</option></select></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkForeColor" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">ForeColor =</td><td nowrap="nowrap"><input type="text" size="15" id="txtForeColor" runat="server" onkeypress="SetCheck('chkForeColor')" /></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkHeight" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Height =</td><td nowrap="nowrap"><input type="text" size="2" id="txtHeight" runat="server" onkeypress="SetCheck('chkHeight')" />px</td></tr>
<tr><td nowrap="nowrap"></td><td align="right" nowrap="nowrap">ID =</td><td nowrap="nowrap"><% = MyControl.ID %></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkText" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Text =</td><td nowrap="nowrap"><input type="text" size="25" id="txtText" runat="server" onkeypress="SetCheck('chkText')"/></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkToolTip" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">ToolTip =</td><td nowrap="nowrap"><input type="text" size="15" id="txtToolTip" runat="server"  onkeypress="SetCheck('chkToolTip')"/></td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="checkbox" id="chkVisible" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Visible =</td><td nowrap="nowrap"><select id="selVisible" size="1" runat="server" onchange="SetCheck('chkVisible')"><option>True</option><option>False</option></select></td></tr>
<tr><td nowrap="nowrap"><input type="checkbox" id="chkWidth" runat="server" /> Set: &nbsp; </td><td align="right" nowrap="nowrap">Width =</td><td nowrap="nowrap"><input type="text" size="2" id="txtWidth" runat="server" onkeypress="SetCheck('chkWidth')" />px</td><td nowrap="nowrap"></td>
<td nowrap="nowrap"><input type="button" Value="Reset" onclick="javascript:location.href='http://<% = Request.ServerVariables("SERVER_NAME") %><% = Request.Path %>'"></td><td nowrap="nowrap"></td><td nowrap="nowrap"><input type="submit" Value="Update" runat="server" /></td></tr>
</table>
</form>

<script language="VB" runat="server">
Sub Page_Load()

outError.innerHTML = ""

Try

   If IsPostBack() Then

      If chkAccessKey.Checked Then MyControl.AccessKey = txtAccessKey.Value
      If chkBackColor.Checked Then MyControl.BackColor = Color.FromName(txtBackColor.Value)
      If chkBorderColor.Checked Then MyControl.BorderColor = Color.FromName(txtBorderColor.Value)
      If chkBorderStyle.Checked Then MyControl.BorderStyle = selBorderStyle.Value
      If chkBorderWidth.Checked Then MyControl.BorderWidth = Unit.Pixel(txtBorderWidth.Value)
      If chkEnabled.Checked Then MyControl.Enabled = selEnabled.Value
      If chkForeColor.Checked Then MyControl.ForeColor = Color.FromName(txtForeColor.Value)
      If chkHeight.Checked Then MyControl.Height = Unit.Pixel(txtHeight.Value)
      If chkText.Checked Then MyControl.Text = txtText.Value
      If chkToolTip.Checked Then MyControl.ToolTip = txtToolTip.Value
      If chkVisible.Checked Then MyControl.Visible = selVisible.Value
      If chkWidth.Checked Then MyControl.Width = Unit.Pixel(txtWidth.Value)

   End If

   txtAccessKey.Value = MyControl.AccessKey
   txtBackColor.Value = MyControl.BackColor.Name
   txtBorderColor.Value = MyControl.BorderColor.Name
   selBorderStyle.Value = MyControl.BorderStyle
   txtBorderWidth.Value = MyControl.BorderWidth.Value
   selEnabled.Value = MyControl.Enabled
   txtForeColor.Value = MyControl.ForeColor.Name
   txtHeight.Value = MyControl.Height.Value
   txtText.Value = MyControl.Text
   txtToolTip.Value = MyControl.ToolTip
   selVisible.Value = MyControl.Visible
   txtWidth.Value = MyControl.Width.Value

Catch objError As Exception

   outError.innerHTML = "<b>* Error</b>: " & objError.Message & "<p />"

End Try

End Sub
</script>

<!--------------------------------------------------------------------------->
<!-- #include file="foot.inc" -->
</body>
</html>
